﻿<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!--#include file="utf-8.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="Include.asp"-->
<!--#include file="page.asp"-->
<%
sortid=request("sortid")

keyword=Trim(request("keyword"))

'response.write keyword
'response.end

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<title>创意产业园</title>
<link href="style.css" rel="stylesheet" type="text/css"/>
<body>

<div id="all">
<!--顶部板块开始-->
<!--#include file="header.asp"-->
<!--顶部板块结束-->
<div id="Downloads">

<!--中部板块开始-->
<div id="Pannel_Content">
    <div id="Pannel_Content_left">
        <div id="Content_left_title">你搜索的关键词为：
        <%=keyword%>
        </div>
        <div id="Content_left_text">
            <ul>
            <%	
			Set rs = Server.CreateObject ("ADODB.Recordset")
			sql = "Select * from news where title like'%" &keyword& "%' order by id desc"
			rs.Open sql,conn,1,1

			'response.end
            if rs.eof then
                response.Write "&nbsp;暂无新闻！"
				response.end
			end if
			rs.PageSize =12 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
			maxpage=rs.PageCount 
			page=request("page")
			if Not IsNumeric(page) or page="" then
				page=1
			else
				page=cint(page)
			end if
			if page<1 then
				page=1
				elseif  page>maxpage then
				page=maxpage
			end if
			rs.AbsolutePage=Page
			if page=maxpage then
				x=iCount-(maxpage-1)*iPageSize
			else
				x=iPageSize
			end if	
            %>
            <%For i=1 To x%>
            <%
            UpdateTime = Year(rs("UpdateTime")) & "--" & Month(rs("UpdateTime")) & "--" & day(rs("UpdateTime")) 
            %>
            <li><span><%=UpdateTime%></span><%=i%>.<a href="/newsinfo.asp?id=<%=rs("id")%>" target="_blank"><%=rs("title")%></a></li>
            <%
			rs.movenext
            next
            %>
            </ul>
            <div class="showpage">
                <%'以下显示分页
                call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
                rs.close
                set rs=nothing
                %>
            </div>
        </div>
    </div>
<!--#include file="ContentPage_right.asp"-->
</div>
<!--中部板块结束-->

</div>
<!--底部板块开始-->
<!--#include file="bottom.asp"-->
<!--底部板块结束-->
</div>

</body>
</html>